﻿Imports System.Configuration

Public Class ContextoDeAmbiente

    Public Enum Ambiente
        Producao = 0
        Homologacao = 1
        Desenvolvimento = 2
    End Enum

    Public Const EmailSphinx As String = "fgv@fgv.br"

    Public Const RemetenteSphinx As String = "FGV"


    Public Shared Function AmbienteAtual() As Ambiente

        Dim _ambiente As String
        _ambiente = ConfigurationManager.AppSettings("Ambiente")

        Select Case _ambiente
            Case "PRODUCAO"
                Return Ambiente.Producao
            Case "HOMOLOGACAO"
                Return Ambiente.Homologacao
            Case "DESENVOLVIMENTO"
                Return Ambiente.Desenvolvimento
            Case Else
                Throw New ConfiguracaoException("É preciso configurar o AppSetting Ambiente: PRODUCAO, HOMOLOGACAO ou DESENVOLVIMENTO")
        End Select

    End Function

End Class
